(ange-ftp-canonize-filename): Avoid duplicate slash if DIR is just slash.

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index ef4b65d55569362fffb10a3b4d7423131eb97a62..1cb56f9ad7a381f2da6bcb77647189f977e3a79c 100644 (file)
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -3170,7 +3170,8 @@ logged in as user USER and cd'd to directory DIR."
                        (rest (substring name (match-end 0)))
                        (dir (ange-ftp-expand-dir host user tilda)))
                   (if dir
-                      (setq name (concat dir rest))
+                      (setq name (if (string-equal dir "/")
+                                     rest (concat dir rest)))
                     (error "User \"%s\" is not known"
                            (substring tilda 1)))))